Business Assistant/Business Assistant.iso/indus/auto_inv/inv_0120.prg

Text File | 1991-08-07 | 6KB | 228 lines

*--------------------------------------------------------------------------
* Program KEV_0120 - Add New Invoice - Parts Cost Kevins Subaru Invoicing
*                       (c) 1989 Systematics Consulting, Inc.
*--------------------------------------------------------------------------

SET TALK OFF
SET ECHO OFF
SET STATUS OFF
CLOSE ALL

SELECT 3
USE KEV_PART INDEX KEV_IDX3

DO WHILE .T.

ANSWER = " "
A_PART_DESC = SPACE(50)
A_PART_COST = 0000.00
A_PART_QTY  = 0
B_PART_DESC = SPACE(50)
B_PART_COST = 0000.00
B_PART_QTY  = 0
C_PART_DESC = SPACE(50)
C_PART_COST = 0000.00
C_PART_QTY  = 0
D_PART_DESC = SPACE(50)
D_PART_COST = 0000.00
D_PART_QTY  = 0
E_PART_DESC = SPACE(50)
E_PART_COST = 0000.00
E_PART_QTY  = 0
F_PART_DESC = SPACE(50)
F_PART_COST = 0000.00
F_PART_QTY  = 0
G_PART_DESC = SPACE(50)
G_PART_COST = 0000.00
G_PART_QTY  = 0
H_PART_DESC = SPACE(50)
H_PART_COST = 0000.00
H_PART_QTY  = 0
I_PART_DESC = SPACE(50)
I_PART_COST = 0000.00
I_PART_QTY  = 0

  CLEAR

   @ 24, 10 SAY  "Systematics Consulting, Inc. [phone] - Program KEV_0120"
   @ 1,  1 SAY  DATE()
   @ 1, 71 SAY  TIME()
   @ 2,  5 TO  5,75  DOUBLE
   @ 3, 15 SAY  "             KEVIN'S SUBARU               "
   @ 4, 15 SAY  "        Add New Invoice - Parts Costs     "


@  6,   8 SAY "Invoice #: "
@  6,  25 SAY INVNUM PICTURE "#####"
@  6,  35 SAY INVNAME

X = 8

@ X, 5   SAY "Qty."
@ X, 10  SAY "Description:"
@ X, 62  SAY "Unit $"

X = X + 2

@ X,  5  GET  A_PART_QTY PICTURE "###"
@ X, 10  GET  A_PART_DESC
@ X, 62  GET  A_PART_COST PICTURE "####.##"
X = X + 1

@ X,  5  GET  B_PART_QTY PICTURE "###"
@ X, 10  GET  B_PART_DESC
@ X, 62  GET  B_PART_COST PICTURE "####.##"
X = X + 1

@ X,  5  GET  C_PART_QTY PICTURE "###"
@ X, 10  GET  C_PART_DESC
@ X, 62  GET  C_PART_COST PICTURE "####.##"
X = X + 1

@ X,  5  GET  D_PART_QTY PICTURE "###"
@ X, 10  GET  D_PART_DESC
@ X, 62  GET  D_PART_COST PICTURE "####.##"
X = X + 1

@ X,  5  GET  E_PART_QTY PICTURE "###"
@ X, 10  GET  E_PART_DESC
@ X, 62  GET  E_PART_COST PICTURE "####.##"
X = X + 1

@ X,  5  GET  F_PART_QTY PICTURE "###"
@ X, 10  GET  F_PART_DESC
@ X, 62  GET  F_PART_COST PICTURE "####.##"
X = X + 1

@ X,  5  GET  G_PART_QTY PICTURE "###"
@ X, 10  GET  G_PART_DESC
@ X, 62  GET  G_PART_COST PICTURE "####.##"
X = X + 1

@ X,  5  GET  H_PART_QTY PICTURE "###"
@ X, 10  GET  H_PART_DESC
@ X, 62  GET  H_PART_COST PICTURE "####.##"
X = X + 1

@ X,  5  GET  I_PART_QTY PICTURE "###"
@ X, 10  GET  I_PART_DESC
@ X, 62  GET  I_PART_COST PICTURE "####.##"

@ 22, 14  SAY "Enter data, Press <CTL><END> at any time to save data."
@ 21,  9  TO 23, 71    DOUBLE

READ

@ 22, 14  SAY "    ADDING DATA TO DATA BASE                          "
@ 21,  9  TO 23, 71    DOUBLE

IF A_PART_DESC <> " "
APPEND BLANK
REPLACE  KEV_PART->INV_NO  WITH INVNUM
REPLACE  KEV_PART->PART_DESC  WITH A_PART_DESC
REPLACE  KEV_PART->PART_COST  WITH A_PART_COST
REPLACE  KEV_PART->PART_QTY  WITH A_PART_QTY
ENDIF

IF B_PART_DESC <> " "
APPEND BLANK
REPLACE  KEV_PART->INV_NO  WITH INVNUM
REPLACE  KEV_PART->PART_DESC  WITH B_PART_DESC
REPLACE  KEV_PART->PART_COST  WITH B_PART_COST
REPLACE  KEV_PART->PART_QTY  WITH B_PART_QTY
ENDIF

IF C_PART_DESC <> " "
APPEND BLANK
REPLACE  KEV_PART->INV_NO  WITH INVNUM
REPLACE  KEV_PART->PART_DESC  WITH C_PART_DESC
REPLACE  KEV_PART->PART_COST  WITH C_PART_COST
REPLACE  KEV_PART->PART_QTY  WITH C_PART_QTY

IF D_PART_DESC <> " "
APPEND BLANK
REPLACE  KEV_PART->INV_NO  WITH INVNUM
REPLACE  KEV_PART->PART_DESC  WITH D_PART_DESC
REPLACE  KEV_PART->PART_COST  WITH D_PART_COST
REPLACE  KEV_PART->PART_QTY  WITH D_PART_QTY
ENDIF

IF E_PART_DESC <> " "
APPEND BLANK
REPLACE  KEV_PART->INV_NO  WITH INVNUM
REPLACE  KEV_PART->PART_DESC  WITH E_PART_DESC
REPLACE  KEV_PART->PART_COST  WITH E_PART_COST
REPLACE  KEV_PART->PART_QTY  WITH E_PART_QTY
ENDIF

IF F_PART_DESC <> " "
APPEND BLANK
REPLACE  KEV_PART->INV_NO  WITH INVNUM
REPLACE  KEV_PART->PART_DESC  WITH F_PART_DESC
REPLACE  KEV_PART->PART_COST  WITH F_PART_COST
REPLACE  KEV_PART->PART_QTY  WITH F_PART_QTY
ENDIF

IF G_PART_DESC <> " "
APPEND BLANK
REPLACE  KEV_PART->INV_NO  WITH INVNUM
REPLACE  KEV_PART->PART_DESC  WITH G_PART_DESC
REPLACE  KEV_PART->PART_COST  WITH G_PART_COST
REPLACE  KEV_PART->PART_QTY  WITH G_PART_QTY
ENDIF

IF H_PART_DESC <> " "
APPEND BLANK
REPLACE  KEV_PART->INV_NO  WITH INVNUM
REPLACE  KEV_PART->PART_DESC  WITH H_PART_DESC
REPLACE  KEV_PART->PART_COST  WITH H_PART_COST
REPLACE  KEV_PART->PART_QTY  WITH H_PART_QTY
ENDIF

IF I_PART_DESC <> " "
APPEND BLANK
REPLACE  KEV_PART->INV_NO  WITH INVNUM
REPLACE  KEV_PART->PART_DESC  WITH I_PART_DESC
REPLACE  KEV_PART->PART_COST  WITH I_PART_COST
REPLACE  KEV_PART->PART_QTY  WITH I_PART_QTY
ENDIF

REINDEX

@ 22, 14  SAY "  ADD FUNCTION COMPLETE                               "
@ 21,  9  TO 23, 71    DOUBLE

CLEAR

   @ 24, 10 SAY  "Systematics Consulting, Inc. [phone] - Program KEV_0120"
   @ 1,  1 SAY  DATE()
   @ 1, 71 SAY  TIME()
   @ 2,  5 TO  5,75  DOUBLE
   @ 3, 15 SAY  "             KEVIN'S SUBARU               "
   @ 4, 15 SAY  "             Add New Invoice              "

ANSWER = "_"
@ 21, 14  SAY "Enter 1 to Add Labor, 2 to Return to Menu   "
@ 22, 14  SAY "any other character to add more Parts: "  GET ANSWER
@ 20,  9  TO 23, 70    DOUBLE
READ


IF ANSWER = "2"
  CLOSE ALL
  RETURN TO MASTER
  ENDIF

IF ANSWER = "1"
  CLOSE ALL
  DO KEV_0110
  ENDIF

LOOP
ENDDO
CLOSE ALL
RETURN TO MASTER

*---------- END OF PROGRAM ----------------